﻿Public Class armaVO

    Private _id_tipo_arma As Integer
    Private _desc_tipo_arma As String
    Private _tipo_cano As Integer

    '-------------------------------------
    ' MÉTODO CONSTRUTOR SEM PARAMETROS
    '-------------------------------------

    Sub New()
        _id_tipo_arma = Nothing
        _desc_tipo_arma = Nothing
        _tipo_cano = Nothing
    End Sub

    '-------------------------------------
    ' MÉTODO CONSTRUTOR COM PARAMETROS
    '-------------------------------------

    Sub New(ByVal id_tipo_arma As Integer, _
            ByVal desc_tipo_arma As String, _
            ByVal tipo_cano As Integer)

        _id_tipo_arma = id_tipo_arma
        _desc_tipo_arma = desc_tipo_arma
        _tipo_cano = tipo_cano


    End Sub

    Public Property ID_TIPO_ARMA As Integer
        Get

            Return _id_tipo_arma

        End Get
        Set(ByVal value As Integer)

            _id_tipo_arma = value

        End Set
    End Property

    Public Property DESC_TIPO_ARMA() As String
        Get

            Return _desc_tipo_arma

        End Get
        Set(ByVal value As String)

            _desc_tipo_arma = value

        End Set
    End Property

    Public Property TIPO_CANO() As Integer
        Get
            Return _tipo_cano

        End Get
        Set(ByVal value As Integer)

            _tipo_cano = value

        End Set
    End Property

End Class
